C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-06\run9.stp
start data,
serial number in columns 1,2,3,
card numbers 1,(2) in column 4,
!Rules about numbers
ds $q1=$113-114/1-50,
!same as
ds $q1=$113-114/01-50,
!leading zeros are ignored
!what happens with a blank field
di $age=$116-117,
!by default $age would take the value=0 if it is blank
!to change this set f=ifbu,
!You can switch this back and forth between ifb0 and ifbu
f=ifbu,
di $i1=$113-114,
f=ifb0,
di $i2=$115-116,
!this will treat blanks as undefined at $i1 but as zero at $i2
!Similarly failed fields such as XXX are set by default to undefined
!unless you set f=iff0,
!so
f=iffu, !default
>>  Warning at line 29 in C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-06\run9.stp
>>  Last few chars parsed were {=ifbu,di$i1=$113-114,f=ifb0,di$i2=$115-116,f=iffu,}
>>W 360 Format already set to this value
di $i1=$113-115,
f=iff0,
di $i2=$116-117,
!XXX would be undefined for i1 and zero for i2
!trailing zeros are not the same
!so 5BB (where B=blank) does not mean 5
!Use F=ATF will read 5BB as 5
!to read decimal places set format adf to true like this
f=adf,
dw $value=$115-118,
!this will accept 24.5, otherwise without f=adf it will not
!to read negatives in field set format anf to true like this
f=anf,
>>  Warning at line 46 in C:\to_server\website\mrdcl-learning.com\mrdcl_files\DAT-06\run9.stp
>>  Last few chars parsed were {iff0,di$i2=$116-117,f=adf,dw$value=$115-118,f=anf,}
>>W 360 Format already set to this value
dw $value=$115-118,
!this will accept -2 (as long as it is right justified)
!
di $rounding=9 / 5,
!!$rounding = 2
dw $wrounding= 9 / 5,
!!$wrounding = 1.8,
di $rounding2=$rounding * $wrounding,
!!$rounding2= 4
dw $wrounding2=$rounding * $wrounding,
!!wrounding2=3.6
list $rounding,
list $wrounding,
list $rounding2,
list $wrounding2,
!
finish data,
